(display "测试continuation的详细信息\n")

(display "创建一个简单的值用于比较：")
(display 42)
(display "\n")
(display "使用let绑定捕获continuation返回值...\n")
(let ((simple-value 42)
      (cont-value (call/cc (lambda (k) 
                             (k 42)))))
  (begin
    (display "简单值: ")
    (display simple-value)
    (display "\n")
    (display "continuation返回值: ")
    (display cont-value)
    (display "\n")))

(display "测试结束\n")